Міністерство освіти і науки України Національний технічний університет України “Київський політехнічний інститут” Кафедра ОТ ЗВІТ про виконання лабораторної роботи № 1 з дисципліни “Основи програмування та алгоритмічні мови” Дана сторона рівностороннього трикутника. Знайти його площу. За умовою задачі, нам дається довжина сторони трикутника, а так як трикутник рівносторонній, то всі сторони рівні. Отже в даному випадку найдоцільніше буде шукати його площу за формулою Герона:
. Де р – півперимитер, р=3\2*а. Блок - схема
 Текст програми Program lab_1; uses crt; {Plug crt} var povtor:char; {zminna dly tcukla povtora} S, {ploh4a} p, {pivperumetr} a:real; {ctorona} begin povtor:='y'; While povtor='y' do begin write('Enter a, a='); readln(a); p:=a*3/2; S:=sqrt((p-a)*(p-a)*(p-a)*p); writeln('S=',S:1:2); writeln; povtor:='r'; while (((povtor<>'y') and (povtor<>'Y')) and ((povtor<>'n') and (povtor<>'N'))) do begin writeln('Do you want to start over?'); writeln('Type "y" to start over or "n" to exit'); Readln(povtor); end; clrscr; end; end.
Висновок Якщо ми візьмено сторону трикутника 23, то півпериметр буде дорівнювати 34,5. І обчисливши площу трикутника за формулою Герона, ми отримуєми значення 229,06, що співпадає з результатом, який отримали в результаті виконання програми.